home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a17.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  40 lines
  1. 1000 'A17.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 1:CLS
  3. 1020 LINE (50,30)-(270,200),PSET,6,B
  4. 1030 LINE (51,31)-(269,199),PSET,[150,0,150],BF:P=0
  5. 1040 A$="色のグラデュエーションによる球形"
  6. 1050 C=LEN(A$):D=(80-C)\2:LOCATE 0,22:PRINT SPACE$(D)+A$
  7. 1060 '
  8. 1070 FOR K=0 TO 4
  9. 1080   LOCATE 5,1:PRINT SPACE$(30)
  10. 1090   T1=TIME
  11. 1100   READ B,R,G,A2$
  12. 1110   C2=LEN(A2$):D2=(80-C2)\2:LOCATE 0,23:PRINT SPACE$(D2)+A2$
  13. 1120   FOR J=65 TO 165 STEP 50
  14. 1130     FOR T=85 TO 235 STEP 50
  15. 1140       GOSUB *MAIN
  16. 1150     NEXT
  17. 1160   NEXT
  18. 1170   T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒｡" 
  19. 1180   WAIT 100
  20. 1190 NEXT
  21. 1200 GOTO 1370
  22. 1210 '   
  23. 1220 *MAIN
  24. 1230  FOR I=1 TO 21 
  25. 1240    IF B=1 THEN BB=I*12 ELSE BB=0
  26. 1250    IF R=1 THEN RR=I*12 ELSE RR=0
  27. 1260    IF G=1 THEN GG=I*12 ELSE GG=0
  28. 1270    IF B=2 THEN BB=150:RR=0:GG=150
  29. 1280    CIRCLE(T,J),21-I,[BB,RR,GG],,,,F
  30. 1290  NEXT
  31. 1295  WAIT 10
  32. 1300 RETURN
  33. 1310 '
  34. 1320 DATA 0,1,1,"☆☆☆ 赤のグラデュエーション ☆☆☆"
  35. 1330 DATA 1,0,1,"☆☆☆ 青のグラデュエーション ☆☆☆"
  36. 1340 DATA 1,1,0,"☆☆☆ 黄のグラデュエーション ☆☆☆"
  37. 1350 DATA 1,1,1,"☆☆☆ 白のグラデュエーション ☆☆☆"
  38. 1360 DATA 2,2,2,"   ☆☆☆ 球形を消します｡ ☆☆☆    "
  39. 1370 'GOTO 1320
  40.